home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '88 / Proceedings '88 / Feldt's Object Stuff / objectMgr stuff / test.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-04-11  |  2.6 KB  |  83 lines  |  [TEXT/KAHL]
  1. #include  "objectMgr.h"
  2.  
  3. EventRecord        event;                        /* event record structure instance */
  4. EventStuff        whatHappened;                /* event detail structure instance */
  5. MenuHandle        appleMenu,fileMenu,editMenu;/* handles for standard menus */
  6.  
  7. main()
  8. {
  9.     Handle        objHandle,result;
  10.     char        str[256];
  11.     msgArgs        args;
  12.     
  13.     XTendInit();                                /* Extender initialization routine */
  14.     StdMenus(&appleMenu,&fileMenu,&editMenu);    /* set up standard menus */
  15.  
  16.     objHandle = msg(F_WINDOW,NEW,NULL);
  17.     NumToString(objHandle,str);
  18.     BugAlert("\Pnew: ",str,"\P","\P");
  19.  
  20.     result = msg(WINDOW,INIT,objHandle);
  21.     NumToString(result,str);
  22.     BugAlert("\Pinit: ",str,"\P","\P");
  23.     result = msg(WINDOW,SELF,objHandle);
  24.     NumToString(result,str);
  25.     BugAlert("\Pself: ",str,"\P","\P");
  26.     result = msg(WINDOW,CLASS,objHandle);
  27.     NumToString(result,str);
  28.     BugAlert("\Pclass: ",str,"\P","\P");
  29.     result = msg(WINDOW,SIZE,objHandle);
  30.     NumToString(result,str);
  31.     BugAlert("\Psize: ",str,"\P","\P");
  32.     
  33.     result = msg(WINDOW,ASK_STATUS,objHandle);
  34.     NumToString(result,str);
  35.     BugAlert("\Pask status: ",str,"\P","\P");
  36.     args.objHndl = objHandle;
  37.     args.objDat1 = ACTIVE;
  38.     result = msg(WINDOW,SET_STATUS,&args);
  39.     NumToString(result,str);
  40.     BugAlert("\Pset status: ",str,"\P","\P");
  41.     result = msg(WINDOW,ASK_STATUS,objHandle);
  42.     NumToString(result,str);
  43.     BugAlert("\Pask status: ",str,"\P","\P");
  44. /*    result = msg(WINDOW,FREE,objHandle);
  45.     NumToString(result,str);
  46.     BugAlert("\Pfree: ",str,"\P","\P");*/
  47.  
  48.     result = msg(UNKNOWN,INIT,objHandle);
  49.     NumToString(result,str);
  50.     BugAlert("\Pgeneric init: ",str,"\P","\P");
  51.     result = msg(UNKNOWN,SELF,objHandle);
  52.     NumToString(result,str);
  53.     BugAlert("\Pgeneric self: ",str,"\P","\P");
  54.     result = msg(UNKNOWN,CLASS,objHandle);
  55.     NumToString(result,str);
  56.     BugAlert("\Pgeneric class: ",str,"\P","\P");
  57.     result = msg(UNKNOWN,SIZE,objHandle);
  58.     NumToString(result,str);
  59.     BugAlert("\Pgeneric size: ",str,"\P","\P");
  60.     result = msg(UNKNOWN,ASK_STATUS,objHandle);
  61.     NumToString(result,str);
  62.     BugAlert("\Pask status: ",str,"\P","\P");
  63.     args.objHndl = objHandle;
  64.     args.objDat1 = ACTIVE;
  65.     result = msg(UNKNOWN,SET_STATUS,&args);
  66.     NumToString(result,str);
  67.     BugAlert("\Pset status: ",str,"\P","\P");
  68.     result = msg(UNKNOWN,ASK_STATUS,objHandle);
  69.     NumToString(result,str);
  70.     BugAlert("\Pask status: ",str,"\P","\P");
  71.     result = msg(UNKNOWN,FREE,objHandle);
  72.     NumToString(result,str);
  73.     BugAlert("\Pgeneric free: ",str,"\P","\P");
  74.  
  75.     do {                                        /* repeat until program terminates */
  76.         do {                                    /* repeat until an event occurs */      
  77.             SystemTask();                        /* allow for DA handling */                          
  78.         } while (!XTGetNextEvent(everyEvent,&event));
  79.         HandleEvent(&event,&whatHappened);      /* get event info */
  80.  
  81.     } while (ExitRequest(&whatHappened) == FALSE);
  82. }
  83.